Dit voorbeeld maakt gebruik van de functie FileAttr om de bestandsmodus en de bestandsafhandeling van een open bestand te geven. De bestandsingang wordt alleen op 16-bits-systemen geretourneerd. Als u op 32-bits-systemen 2 als tweede argument opgeeft, wordt een fout gegenereerd.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTBSTD" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.